www.gusucode.com > 地方成人教育中心整站源代码 1 > 地方成人教育中心整站源代码 1.0/manage/Admin_UpFiles.asp
<!--#include file="chkuser.asp"-->
<!--#include file="conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="copyright" content="Copyright 2008 dananshan.com" />
<meta name="Author" content="闪电文章管理系统技术支持---www.dananshan.com" />
<meta name="Keywords" content="闪电文章管理系统文章管理系统" />
<meta name="Description" content="闪电文章管理系统文章管理系统" />
<title>上传文件管理</title>
<link href="style.css" rel="stylesheet" type="text/css" />
</head>
<body>
<%
'========判断是否具有管理权限
if Instr(session("AdminPower"),"|81,")=0 then
response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
response.end
else
if request("path")<>"" then
UploadPath=request("path")
else
UploadPath="../Upload/Image"
end if
Dim sFor(7,2)
sFor(0,0)="doc":sFor(0,1)="doc"
sFor(1,0)="pdf":sFor(1,1)="pdf"
sFor(2,0)="gif":sFor(2,1)="gif"
sFor(3,0)="jpg":sFor(3,1)="jpg"
sFor(4,0)="png":sFor(4,1)="png"
sFor(5,0)="bmp":sFor(5,1)="bmp"
sFor(6,0)="zip":sFor(6,1)="zip"
sFor(7,0)="rar":sFor(7,1)="rar"
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
If Err.Number=-2147221005 Then
Response.Write "<div align='center'>非常遗憾,您的主机不支持FSO,不能使用该功能</div>"
Err.Clear
Response.End
End If
If Request("FileName")<>"" Then
If objFSO.Fileexists(Server.Mappath(""&Uploadpath&"\"&Request("FileName"))) Then
objFSO.Deletefile(Server.Mappath(""&Uploadpath&"\"&Request("FileName")))
Else
Response.Write "未找到：<Font Color=Red>"&Uploadpath&"/"&Request("FileName")&"</Font>"
End If
End If
Set Folder=objFSO.Getfolder(Server.Mappath(Uploadpath))
If Err.Number<>0 Then
Response.Write "<div align='center'>"&Err.Description&"</div>"
Response.End
End If
Set Num=Folder.Files
FileCount=num.count
call Main_Content()
end if
%>
</body>
</html>
<%
Function Main_Content()
response.write "<div id='frame_Toolbar' class='toolbarBg'> "
response.write "<a href='javascript:self.history.back();' class='icoBtn_ct'><span class='btnIco btnBack'></span><span class='btnTxt'>返回</span></a>"
response.write "<a href='javascript:self.location.reload();' class='icoBtn_ct'><span class='btnIco btnReload'></span><span class='btnTxt'>刷新</span></a> <span class='split ftSplit' ></span>"
response.write "<div id='guide'>选择<span class='light_orange'> 文件路径 </span>进行切换</div>"
response.write "<div class='pageInfo right light_gray'>[当前共有<span id='Label_total_top' class='light_bOrange'>"&FileCount&"</span>条记录]</div>"
response.write "</div>"
response.write "<form method='POST' id=form2 name='form2'>"
response.write "<div id='content'>"
response.write "<table class='cTable table tCenter'>"
response.write "<tr class='cTitle toolbarBg' id='Title'>"
response.write "<td width='8%'><div>类型</div></td>"
response.write "<td width='45%'><span class='split ctSplit'></span><div>文件地址</div></td>"
response.write "<td width='15%'><span class='split ctSplit'></span><div>文件大小</div></td>"
response.write "<td width='20%'><span class='split ctSplit'></span><div>上传日期</div></td>"
response.write "<td width='12%'><span class='split ctSplit'></span><div>操作</div></td>"
response.write "</tr>"
response.write "</table>"
response.write "<table class='cTable table tCenter' cellspacing='0' border='0' style='border-collapse:collapse;'>"
if FileCount<>0 then
For Each FileName In folder.files
i=i+1
pagesize=14
If FileCount Mod PageSize=0 Then
PageCount= FileCount \ Cint(PageSize)
Else
PageCount= FileCount \ Cint(PageSize)+1
End If
curpage=Request.QueryString("curpage")
if curpage="" then curpage=1
If i>(curpage-1)*pagesize And i<=curpage*pagesize Then
response.Write"<tr>"
response.Write"<td style='width:8%;'>"&procGetFormat(FileName.name)&"</td>"
response.Write"<td style='width:45%;'><a href="&uploadpath&"/"&FileName.name&" target=_blank>"&FileName.name&"</a></td>"
response.Write"<td style='width:15%;'>"&FileName.size&" 字节</td>"
response.Write"<td style='width:20%;'>"&FileName.datecreated&"</td>"
response.Write"<td style='width:12%;'><a href=?path="&uploadpath&"&FileName="&FileName.name&">删除</a></td>"
response.Write"</tr>"
ElseIf i>curpage*pagesize Then Exit For
End If
next
else
response.Write"<tr><td colspan='4' align='center' style='width:100%;'>还没有上传文件！</td><td></td></tr>"
end if
response.Write "<tr>"
response.Write "<td colspan='5' width='90%' align='left'> 共计：<font color=#FF0000>"&FormatNumber(folder.size/1024,2)&"</font> k</td>"
response.Write "</tr>"
response.Write "</table>"
response.Write "<div id='cEndToolbar' class='toolbarBg'>"
response.Write "<div class='pageBtnDo'>"
response.Write "<select name='select' onchange='change(this.value)'>"
if request("path")="" or request("path")="../Upload/Image" then
response.Write "<option value='../Upload/Image' selected='selected'>图片文件</option>"
response.Write "<option value='../Upload/DownFiles'>下载文件</option>"
response.Write "<option value='../Upload/Flash'>Flash文件</option>"
elseif request("path")="../Upload/DownFiles" then
response.Write "<option value='../Upload/Image'>图片文件</option>"
response.Write "<option value='../Upload/DownFiles' selected='selected'>下载文件</option>"
response.Write "<option value='../Upload/Flash'>Flash文件</option>"
else
response.Write "<option value='../Upload/Image'>图片文件</option>"
response.Write "<option value='../Upload/DownFiles'>下载文件</option>"
response.Write "<option value='../Upload/Flash' selected='selected'>Flash文件</option>"
end if
response.Write "</select>"
response.Write "</div>"
response.Write "<div class='pageList'>"
if curpage=1 then
Response.Write "首页 | "
else
Response.Write "<a href='?curpage=1'>首页</a> | "
end if
if curpage=1 then
Response.Write "上一页 | "
else
Response.Write "<a href='?curpage="&curpage-1&"'>上一页</a> | "
end if
if pagecount<curpage+1 then
Response.Write "下一页 | "
else
Response.Write "<a href='?curpage="&curpage+1&"'>下一页</a> | "
end if
if pagecount<curpage+1 then
Response.Write "尾页 "
else
Response.Write "<a href='?curpage="&pagecount&"'>尾页</a> "
end if
Response.Write "当前第"&curpage&"页 "
Response.Write "共"&pagecount&"页 "
response.Write "</div>"
response.Write "</div>"
response.Write "</form>"
Set objFSO=Nothing
Set Folder=Nothing
End Function
'获取上传文件后缀名
Function Procgetformat(Sname)
Dim I,Str
Procgetformat=0
If Instrrev(Sname,".")=0 Then Exit Function
Str=Lcase(Mid(Sname,Instrrev(Sname,".")+1))
For I=0 To Ubound(Sfor,1)
If Str=Sfor(I,0) Then
Procgetformat=Sfor(I,1)
Exit For
End If
Next
End Function
%>
<script language="javascript">
function change(path)
{
location.href="?path="+path;
}
</script>